home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (4th Edition) / The Business Master - 4th Edition.iso / files / commadio / hampac / test.bas < prev   
Encoding:
BASIC Source File  |  1987-06-06  |  4.4 KB  |  84 lines
  1. 30000 '== CHOOSE QUESTION ==
  2. 30005 COLOR 15,1:CLS
  3. 30010 RUL%=1:CUL%=1:RLR%=3:CLR%=29:BAR%=1:GOSUB 9000
  4. 30015 RUL%=1:CUL%=60:RLR%=9:CLR%=79:BAR%=1:GOSUB 9000:FOR V=2 TO 8:COLOR 15,4,0:LOCATE V,61:PRINT STRING$(18,32):NEXT V:COLOR 15,4
  5. 30020 COLOR 15,4:LOCATE 2,61:PRINT "Right = ";RA:LOCATE 3,61:PRINT "Wrong = ";WA:LOCATE 4,61:PRINT "Average% = ";AVA%:LOCATE 5,61:PRINT "Last Question ";TQ
  6. 30025 LOCATE 10,1:PRINT STRING$(80,205):LOCATE 23,1:PRINT STRING$(80,205)
  7. 30030 FOR V=11 TO 22:LOCATE V,1:PRINT STRING$(80,32):NEXT V
  8. 30035 COLOR 15,1:LOCATE 2,3:PRINT "Press ESCape to exit test."
  9. 30040 LOCATE 4,2:PRINT "Enter question number (1 to 20)...";:FC%=15:BC%=1:GOSUB 600:GOSUB 550:TQ=IN.NUM%
  10. 30045 LOCATE 4,2:PRINT SPC(37):BEEP
  11. 30050 IF TQ > 20 THEN V=12:A$="There are only 20 questions.":GOSUB 490:FOR T=1 TO 2000:NEXT T:GOTO 30020
  12. 30055 IF A=27 THEN RETURN:COUNTER%=0
  13. 30060 IF TQ=1 THEN FILE$="QUEST1.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  14. 30065 IF TQ=2 THEN FILE$="QUEST2.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  15. 30070 IF TQ=3 THEN FILE$="QUEST3.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  16. 30075 IF TQ=4 THEN FILE$="QUEST4.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  17. 30080 IF TQ=5 THEN FILE$="QUEST5.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  18. 30085 IF TQ=6 THEN FILE$="QUEST6.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  19. 30090 IF TQ=7 THEN FILE$="QUEST7.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  20. 30095 IF TQ=8 THEN FILE$="QUEST8.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  21. 30100 IF TQ=9 THEN FILE$="QUEST9.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  22. 30105 IF TQ=10 THEN FILE$="QUEST10.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  23. 30110 IF TQ=11 THEN FILE$="QUEST11.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  24. 30115 IF TQ=12 THEN FILE$="QUEST12.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  25. 30120 IF TQ=13 THEN FILE$="QUEST13.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  26. 30125 IF TQ=14 THEN FILE$="QUEST14.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  27. 30130 IF TQ=15 THEN FILE$="QUEST15.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  28. 30135 IF TQ=16 THEN FILE$="QUEST16.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  29. 30140 IF TQ=17 THEN FILE$="QUEST17.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  30. 30145 IF TQ=18 THEN FILE$="QUEST18.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  31. 30150 IF TQ=19 THEN FILE$="QUEST19.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  32. 30155 IF TQ=20 THEN FILE$="QUEST20.DAT":GOSUB 30165:GOSUB 30215:GOSUB 30380:GOSUB 30400:GOTO 30020
  33. 30160 IF TQ>20 THEN BEEP:RETURN
  34. 30165 '==========test question input ============
  35. 30170 COUNTER%=COUNTER%+1
  36. 30175 V=12
  37. 30180 OPEN "I",#1,FILE$
  38. 30185 WHILE NOT EOF(1)
  39. 30190 INPUT #1, TXT.LINE$:V=V+1:COLOR 15,4:LOCATE V,2:PRINT TXT.LINE$
  40. 30195 WEND
  41. 30200 CLOSE #1
  42. 30205 'TQ=TQ+1
  43. 30210 RETURN
  44. 30215 ' == ANSWER QUESTION ==
  45. 30220 COLOR 15,1
  46. 30225 '
  47. 30230 LOCATE 6,2:PRINT "Please enter your answer...";:FC%=15:BC%=1:GOSUB 600
  48. 30235 LOCATE 6,30:PRINT " ";
  49. 30240 COLOR 15,4:FOR V=11 TO 22:LOCATE V,1:PRINT SPC(80);:NEXT V
  50. 30245 AN$=IN.STRING$
  51. 30250 L%=LEN(AN$)
  52. 30255 FOR K%=1 TO L%
  53. 30260 O%=ASC(MID$(AN$,K%,1))
  54. 30265 IF O%>96 AND O%<123 THEN MID$(AN$,K%,1)=CHR$(O%-32)
  55. 30270 NEXT K%
  56. 30275 IF TQ=1 THEN ANSWER$ ="A"
  57. 30280 IF TQ=2 THEN ANSWER$ ="C"
  58. 30285 IF TQ=3 THEN ANSWER$ ="A"
  59. 30290 IF TQ=4 THEN ANSWER$ ="C"
  60. 30295 IF TQ=5 THEN ANSWER$ ="A"
  61. 30300 IF TQ=6 THEN ANSWER$ ="A"
  62. 30305 IF TQ=7 THEN ANSWER$ ="B"
  63. 30310 IF TQ=8 THEN ANSWER$ ="C"
  64. 30315 IF TQ=9 THEN ANSWER$ ="A"
  65. 30320 IF TQ=10 THEN ANSWER$ ="C"
  66. 30325 IF TQ=11 THEN ANSWER$ ="C"
  67. 30330 IF TQ=12 THEN ANSWER$ ="A"
  68. 30335 IF TQ=13 THEN ANSWER$ ="A"
  69. 30340 IF TQ=14 THEN ANSWER$ ="A"
  70. 30345 IF TQ=15 THEN ANSWER$ ="B"
  71. 30350 IF TQ=16 THEN ANSWER$ ="B"
  72. 30355 IF TQ=17 THEN ANSWER$ ="E"
  73. 30360 IF TQ=18 THEN ANSWER$ ="D"
  74. 30365 IF TQ=19 THEN ANSWER$ ="A"
  75. 30370 IF TQ=20 THEN ANSWER$ ="D"
  76. 30375 RETURN
  77. 30380 IF AN$=ANSWER$ THEN LOCATE 8,66:PRINT "RIGHT":FOR T=1 TO 300:NEXT T:RA=RA+1:RETURN
  78. 30385 ' == INCORRECT ANSWER ==
  79. 30390 SOUND 200,10:SOUND 50,10:LOCATE 8,66:PRINT "WRONG"
  80. 30395 FOR T=1 TO 300:NEXT T:WA=WA+1
  81. 30400 '==AVERAGE==
  82. 30405 AVA%=RA/COUNTER%*100
  83. 30410 RETURN
  84.